home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / USE.SUB.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  551 b   |  20 lines
  1. 5  REM  USE SUBROUTINE
  2. 10 D$ =  CHR$(4): REM  CONTROL-D
  3. 20 R$ =  CHR$(13): REM  CARRIAGE RETURN
  4. 30  PRINT D$;"PREFIX /EXAMPLES/DATA"
  5. 40  PRINT D$;"OPEN VERB.LIST"
  6. 50  PRINT D$;"READ VERB.LIST"
  7. 60  GOSUB 1000
  8. 70  PRINT D$" CLOSE VERB.LIST"
  9. 80  FOR J = 1 TO I
  10. 90 : PRINT A$(J)
  11. 100  NEXT J
  12. 110  END 
  13. 999  REM  READ A FIELD
  14. 1000 I = 0: REM  START AT A$(0)
  15. 1010 I = I +1: REM  NEXT ELEMENT
  16. 1020  GET C$: REM  READ CHARACTER
  17. 1030  IF C$ = ","  THEN  GOTO 1010
  18. 1040  IF C$ = R$  THEN  RETURN 
  19. 1050 A$(I) = A$(I) +C$: REM  ADD TO ARRAY ELEMENT
  20. 1060  GOTO 1020